if (FALSE)
{
        ix1=ix;iy1=iy;
        for (cnt=0;cnt<=1;cnt++)
         {
          ix=ix1-1+cnt;
          iy=iy1;

          dleft=enoleft(new_dd);
          dright=enoright(new_dd);
          wave_speed=(main_level)*(new_dd(ix+1,iy)-new_dd(ix,iy))/h;
          dhalf_x[cnt]=enohalf1(dleft,dright);

          ix=ix1;
          iy=iy1-1+cnt;

          dtop=enotop(new_dd);
          dbot=enobot(new_dd);
          wave_speed=(main_level)*(new_dd(ix,iy+1)-new_dd(ix,iy))/h;
          dhalf_y[cnt]=enohalf1(dbot,dtop);
         }  /* looping cnt */

        ix=ix1;iy=iy1;
        current_radius=sqr((dhalf_x[1]-dhalf_x[0])/h)+
                       sqr((dhalf_y[1]-dhalf_y[0])/h);
}       
